@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED228 FREE SECTORS COPYING---D1:DISKFIX.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 160ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u8<<  B JKIHiDiELV`L8 8 BLV`LxT}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`HU}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICV}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::iX}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8Y} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9Z}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  [} L;D8:; :9 :Y;L-@m}@ $( SELECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAn}UY A], 4DOS@e@) A ,.S27@<@,4P*+"@)"@,=@o}I6-@S AL7@<@,4P(6-@B0@L AG7@<@,4Dp}(6-@2 A =@G A$$7@<@,4SA: 6-A:,& @)!&@&0 Aq}: A_ B(}@;@@G6-S"@_6-@4$-@%r} @$ +67@<@,.7@<@,S67@<@,.7@<@,l67@<@,.s}.67@<@,.7@<@,Y 6.-@@,6-@:7<,,B"@F)"@XY67B:,%@,t}.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G @@+@e@=Au}RG Apr +@-@@4(@LOADINGF-@@d(@7@<@,nv} A@r%h A(@4(@FILE NOT FOUNDT(@OR NOT A LOAD FILE^ A`h AXC Bw}AR@1@C@@9b1 }ATARI SYSTEM STATUS1  ...WORKING...glhh;Ax},;@@,;@@,;A,;@,;@,;@@,;@@,;A#,v8 AP-@@y}P:8@,@,6.P: G A@<@@D2:*z}.*G@LL6.BD1: ˠŠD2: ˠŠ A--6.#D1: ˠ{}Š C A @8@@R:C@aa6.WR1: ӭԠ|}R2: ӭԠR3: ӭԠOO67B:,%@,.7R4: Р}}1@1@@D:*.*-@@@''7@<@~},4SECTA-@!   ''7@<@,4SECTA@ A $@ -}@"@!$ *. A .7@5<@5,42A04 A>''@@D2:*.*H}@R''7@<@,4SECTAp\ A@f-@"@# p--@ @"- }IJz8@ -@ @ 8 ı7-7 ATARI SYSTEM STATUS UP TIME:i-}@B 'DEVICES PRESENT SYSTEM DRIVE FILES:T-@#@i EXT U-@$  E:} 3  S: D  K: U  C: *-@*  -@ }( 4(6.P: D7@4<@4,4 D6.!D2: ˠŠW 4W6}.FR1: ӭԠR2: ӭԠf 4f67B:,%@,.GR3: ӭԠ}R4: РXX ODEVICES NOT PRESENT } h-@ . ź?  BASICh #٠ź})6-AP!%I:,)  Bytes/=6-+'A$,46-P:$@%?,'@= K.-@} |.-@33 *$E-@E *}.--@@#-@) |- 8.-@ @##-@* |. B F:Ad},AUA`LaE6-P:+F:@,$BU6%F:@,$AV%F:@ ,,'@Y'C@,S!%@Ya6-%@`V6-}P:'@`,6-&`D 6.=:,"67B:,%@,.:. @D67B:,%@,.0j67B:,%@,.=:,t-@1}  ~ A"F:Ad,"@1" A"F:Ad,"@0" A04F:Ad,"@}*AdAU4 APF:Ad,"@(*@@4+FAdAUP A66POKE 82,2:PO}KE 83,39:GRAPHICS 0:POKE 764,255:NEW!6.D:*.*!AdAU AP"6.D2:*.*"AdAU A}P6.SYSTEM DRIVE FILES:67@<@,4266.DISK DRIVE 2 FILES:-@ @ 5 A}@5@@ -@@@''7@<@,4SECTA`(-}@! 2 <''7@<@,4SECTA`F@ A@P"@AZ8-@}-@!4  8 d-@"@!n9@'7@<@,429-@"@#x }%- % A@% D:D!n9@'7@<@,429-@"@#x 8DDNPAZTYPNLINECODEINFOSOPERCHARHHZEN1ST1TEXTPUMANDMORAOTABLEVAHXCHMEMDIREOSIZNDIFHEX}SYSSYMBOLLABELLVALUEMEMEPOIPOISNMODFNOPADDMLPEPIOSIMBOLSYSLFLAERMODSTENJCOUNCODEPLMPCT}IMLSIZFOUNMSLSSPOISLSBYTPOBJECCMAMLDFFSLINWWAADPERFLI@}PPSg v w A eA eG/ (W i { ~ HM }    @@A    A! e"@#@$@}%@&@'AA(AR)@V*@+@,-@.@/01234}56789:;<@=>?@ABC}DEFGHIJKLMNOP@QRS}TUVWXYZ[\]  A B  A}"@$d6-@%-@&@<(WORKING ON LINE F A P A%Z A0d A@F"@} APK=!"@*"@*0EQU'6-36-@= AfP"@ A5Z Ap  PAS}S 26-@M6-@%-@&@/ A 9 A%C AM A@"@ AP}"@ A5 Ap Au  Av$W6-(7@<@,0 46-@K6.7@}<@,W6-@$INIT SYSTEMhh;@,;@,;@ ,;@,;@,;@,;@},9A,9A,~~;A,;@@,;@,;@,;@,;AE,;@ ,;@,;@},;@,;@,'6-@6-@'6-AAA;@,;@,;A ,;@,;@},9,6.0123456789ABCDEF ;6-@6-@;67@<@,.>:, 6. DFBDFWEQUORG6-@}6-@6-@6-@$6. !!104,104,133,213,104,133,212..104,37,213,13}3,213,104,37,212,133,212,96--@@")67<,.>:,- I 6.)67@ <@ ,.>:@,I67@}<@,.>:@,L 6. 67A@,. L67@<A@,.7@<A@&@,@"J-@A@}^. "6-P:'AV,.6-&+$AV,rR67<%@,.467%@<%@,.>:,R67%@<%@},.>:,?-@"767%@%<%@%,.>:,; ? $INIT ASSEMBLERk6-@6-'6}-@G67@<@,.>:,S6-_6-@k6-$- 68,-$ $!!}INTIALIZE VARIABLAS IN LINE" 6.6-"6-+6-6-"6.+6. 6-6.}6.!6-@6. !6. CC67@<@@,.(  $ GET L}INE ! 6-8,6-8,!6-@ B -67<,.7<,)6-%@- ?6-+&,%@B$ $ PROCESS AN }LABEL $6-@6-@$6-B:, 8 Ae0  67<,..6-%@8 A0 )6-&@})6-@ $ ASSEMBLER DIRECTIVES 6.7@ A567@<@,.7@<@,>68,- ,6-%@6-%@) A},$BDEFINE WORDG AS ALS+67@<@,.7@<@,S67@ <@,.7@<@},Q-6.7@<@,$ A-68,-Vd6-%@(6.7@<@,2 A;68,-I6-%@W6}-%@a Ad$tPROCESS EQUu"@$v4"%(LABEL WITHOUT EQU16-@4$y AS} A~O"@6-@26.7@<@,< AB6-L AfO$"@6-@26.7@}<@,< AB6-Y6.7@<@,c Ai6-{6-+$AV,% Af$ A`$ ORG} AS AB:,@ A`$*6.7@<@,$ A*6-*6.7@<@,$ }A*6-(6-+$AV,%6-% A($PROCESS OPERATION CODE6.7@<@,-@+$},:47<%@,+6.7<%&@,76-@:$ ##-@+$@,@%47<%}@,"6-@%$ -(UNKNOWN OPERATION CODE*6-@-$PROCESS OPERAND+"@6-@!6}-+ Af!B:, @6-@!$ 6.7@ A`$FPROCESS INDIRECT,YG" AW0, A`"$H" AW0Y A`}"$I! AW0 A`!$J6-AV$PPROCESS IMMEDIATE DATAU6-@_6.7@<@,}d 4$ ARP$i A`$ PROCESS IMMEDIATE HEX DATA6.7@:,6-%@6-@-%&@67<,.7<,6-%@} ' 6-%67<,.>:,'6-%@&6-P:'AV,&6-&+$AV,67<,.>:,6-%@667<,.}>:,6-%@367<,.>:,6$,SEARCH SYMBOL TABLE-6-@6-1&6.7<,6-@:,#"}&$6# 6-%%@# Ag;# 6-6-%@#6-@@-%&@E-7<,07<,#6-%%}@- AgJ6-%@ O-6-%%@6-@-6-@:7<,,T("@ Agp%6-@($Y}("@ Ag%6-@($^$rF6-%@6-@:7<,,%6-/ AF67@<@,.wU6-%}@6-@:7<,,16-%+$AV,; AR67@<@,.U$|I6-%@6-@:7<,,%6-/ AF6}7@<@,.I$GET CHAR FROM OPERAND6-6. ! $%6.7<,6-%@%6-@:,(}@e*@%6-@($(@H*@W%6-@($$XGENERATE OBJECT CODEY"@$}Z"@$]==6-@:7@<@,,%+@:7@<@,,$AV,b,6-?:C:,<<,") A`0,$g}6-l-q56-?:C:,<<@#,'56-%@v16-?:C:,<<@#,'1 }Ap@{ !!6-@:7@%<@%,,"@ AP$"@ A$"@ AP}$"@ AP$"@ AP$"@2 A$"@d A$}"A( A$"AV A$"A A$"A$ A$"A H A}$K$LPRINT OUT THE LINEM"@$Q ( $OUT SYMBOL TABLE(( SYMBOL TABLE6-@}&6.7<,6-@:,#"&$.6-%@"6. .6-@-%&@!67<,.7<,}!6-%@ 6-%%@6-@:7<,,6-%@6-@:7<,,6-%@ (  6-} A(! 6- A(! AvrGENERATE IMPLIED OBJECTw A68,-|6-%@6-%@} 6- A'67@<@,.$ A'$!!GEMERATE IMMEDIATE OBJ CODE A68,-(6-}%@68,-(6-%@! 6- A!6-%@*67@<@,. 6-* A'67@ <@},.$ A'$GENERATE OBJECT FROM ZERO$ A68,-$6-%@ 6- As67@<@},.167@ <@,.76.A AJ68,-X6-%@b Ap6-%@s$l PROCESS ABSOLUTEq  }A68,-v 86-%@6-! A867@<@,.{ R6.7@<@,167@ <@,.; A}D68,-R6-%@} `6.7@<@,167@<@,.; AD68,-R6-%@`6-%@}  A$4!INDIRECT,Y9!$ A68,-$6-%@>!-6.7@<@,$ A-68,-C!6-%@}6-%@H!* 6- A*67@<@,.M!67@ <@,.R! A$!RELATIVE BRANCH}!"@A0!*6.7@<@,$ A*6-!*6.7@<@,$ A*6-!%6-+$AV,%}%6-&&@!!A) A` $! 6A& A` $! 6-%AV!$ A68,-}$6-%@!( 68,-6-%@(6-%@!* 6- A*67@ <@,.!* 6- A*67@}<@,.! A$(#!!CONVERT VALUE IN HX$ TO DEC-#$6.7@<@,$ A 2#26-$@(6.7@}<@,2 A 7# 6-%$<#?6-+1>:@H,*/>:@W,<6-@:,&@H?$A#31>:@e,*/>:@}p,06-@:,&@U3$F# A`$#CONVERT PC TO HEX#w6-P:'AV,6-$ A;67@<@,.}M6-&+$AV,S6-] At67@<@,.w$#CONVERT BYTE HX$#&6-P:'@,&6-&+$@,#^/6}7@<@,.7%@<%@,[67@<@,.7%@<%@,^$T$PUT OPERATIONY$006}7@<@%&@,.[$67@#<@%,.^$67@(<@(%B:,,.c$$%DATA FOR ASSEMBLER!%56}#%//ADC,1006,8,105,101,117,109,125,121,113,97%%((AND,1006,8,41,37,53,45,61,57,49,33'%ASL,109,5,10,06,22,14,30)%BC}C,2048,1,144+%BCS,2048,1,176-%BEQ,2048,1,240/%BIT,36,2,36,441%BMI,2048,1,483%BNE,2048,1,2085%BPL,2048},1,167%BRK,1,1,009%BVC,2048,1,80;%BVS,2048,1,112=%CLC,1,1,24?%CLD,1,1,216A%CLI,1,1,88C%CLV,1,1,18}4E%00CMP,1006,8,201,197,213,205,221,217,209,193G%CPX,38,3,224,228,236I%CPY,38,3,192,196,204K%DEC,108,4,198,214,}206,222M%DEX,1,1,202O%DEY,1,1,136Q%((EOR,1006,8,73,69,85,77,93,89,81,65S%INC,108,4,230,246,238,254U%INX,1,1},232W%INY,1,1,200Y%JMP,1056,2,76,108[%JSR,32,1,32]%00LDA,1006,8,169,165,181,173,189,185,177,161_%##LDX,182,5,}162,166,182,174,190a%""LDY,110,5,160,164,180,172,29c%LSR,45,4,74,70,86,78e%NOP,1,1,234g%%%ORA,1006,8,9,5,21,13,29},25,17,1i%PHA,1,1,72k%PHP,1,1,8m%PLA,1,1,104n%PLP,1,1,40q%ROL,109,5,42,38,54,46,62s%##ROR,109,5,106,102},118,110,126u%RTI,1,1,64w%RTS,1,1,96y%00SBC,1006,8,233,229,245,237,253,249,241,225{%SEC,1,1,56}%SED,1,1,248}%SEI,1,1,120%,,STA,1004,7,133,149,141,157,153,145,129%STX,52,3,134,150,142%STY,44,3,132,148,140%TAX,1,}1,170%TAY,1,1,168%TSX,1,1,186%TXA,1,1,138%TXS,1,1,154%TYA,1,1,152I&$@!6-B:,%@$ }$* APPEND* ( A+"@$+6-@6-&@ + 68,-6-@+7-%&@ }%67<,.7<,36-%@7 +668,-%&@6-%,6-%@6 B\+ LIST]+"@$a+  }b+ 6-&@f+-@k+ * B%p+   $u+ 6-8,6-8,z+( ( -(7<, }" %(($+ B + DELETE++!&@) @$+""&@6-&@"$+ 6-6-%@ }+ -+J 6-8,6-8,68,-'68,-56-%@9 G6-&@J$$, INSERT),*,  $.,}6-%@3, ( A=,"@$B,#6-&@6-#6-@G,7-%&@%67<,.7<,}36-%@7 L,6-%&@Q, 6-&6-&@6-V,-@[,G 6-8,68,-6-8,'68,-}56-&@C6-&@G `,5 68,-68,-6-%+6-%@5 B, SAVE,"@$, 6.}4$,( @@(6. ,-@&@, 6-8,6-8,, -6.7<,,(}@(, ,(@(, @$, LOAD, 6.4$, @@}, Bp,!6-@6-!6-@-2 6-6-@26. -- 6. @} 4#(- B@ -67<,.(-6-%@ B%-6-&@-6-%&@-C6-@!-}%&@167<,.7<,?6-%@C #-+ 68,-68,-#6-%@+6-%(- B 2- 6-@$}.COMMAND MODE..@.@@E:.f0@@70@Q0@}c@f(.9Av@'Au@9Aw@. 6. (*  A}.! 4ASM @ ! B .$4APPEND B$ B /"4LIST B" B /#4WATCH B}0# B /&4NWATCH6-& B /4QUIT(>:A%,!// 4NEW6-@%6-@/ B} &/$4DELETE B$ B +/$4INSERT B$ B 0/! 4RUN B5! B 5/"4SAVE} B" B 7/"4LOAD B" B C/ B 2 WATCH2((WHAT ADDERSS )22:B:,@}7( ADDERSS MUST BE FOUR DIGITS LONG:$2*6.7@<@,$ A*6-2*6.7@<@,$ A*6-}2$6-+$AV,%!6-@$$4 RUN4 6-4:-@&@"6-8,(66-%@: 4>"@}6-F:," A>(ADDERSS  BEFORE=4 6-?:,4>"@6-F:," A>(ADDERSS  AFTER =}4$ D:ASSEMBL.BASLOAD $0600CASAVE $008A,X8A,X` &LRTSRTS` &WAITA  }  $0123456789ABCDEF   $008A,X8A,X` &LRTSRTS` &WAITA -23, ? ANUMBDFLASTARRELOONUSAF "} (>:A%,(PM(E VARIBLES USED IN HEXER **********************P(ZZ(R#}=contains the hex number which is to be evaluated by the routine at line 1000.II(A¤=contains the hex byte which is $}to be entered into memory.%%(=general purpose variable.ss(kǠ=a flag indicating whether or not the examine m%}ode is in operation.1=yes,0=no.This is used tO changett(lthe default address to $3FF8 instead of $4000 when return is pre&}ssed in response to the START address promt.((( ̬Р=general loop variables. ::(2͠=ASCII code of the hex digit'} being evaluated. ++(#Ӡ=result of the hex conversion. 66(.Ԡ=current memory address being accessed. -@(}A ( +2;@,;@,<##@@K:d(( YOU MAY:-(n( 1.E)}NTER CODEx(2.EXAMINE CODE( 3.ALTER CODE( 4.RUN CODE( 5.END PROGRAM()@! @:1*},)!@:5,! Ap$ (>:,6-&@H$6-//AAAAA  A@+},( START ADDRESS6@ A6-J byte T/4S)4)B:,!@,( TERMINATED/$^,} 6. Ah$!AU(!( TERMINATED$$r |6-%@ A0( START ADDRESS6-@-} A6-6-P:'AV, A  6- A -@ ( 6-F:%, A .}   (6-%@)@@:S, A0$X( START ADDRESSbl A6-/}v6-P:'AV, A  6- A  (  6-F:, A ( byte /4S)4)B:,!0}@,( TERMINATED/$ 6. A$!AU(!( TERMINATED$$ 6-%@ A0 (1} START ADDRESS*4 A>((YOU ARE SURE (Y/N) ?H)@R @:Y,((ABORTED $\((2}IN M/C ROUTINEf 6-6-?:,p((OUT OF M/C ROUTINEz$@4*" 6-B3}c#(3( START=$40006(@ A<4*"@ 6-Bcv#(<(START=$3FF8:?:G.1110:B:,!@()(TOO4} MANY DIGITS06.: A 6- -@B:,6-@:7<,,# @H)!@p# A$' @X5}6-&@H' A.'!@d6-&@U' A8!   INVALID HEX !''!$B 6-%+$+@#+B:6},&,,,L V$**6-++'AV,&P:'AV,,$AV* 6-6-P:'@,$ A @*6-'!@6-&7}@' A  A @$' @ P6-%@H' A `6-%@U  >:,$ D:HEXER.BA8}S2,32,32,32w?? A @$' @ P6-%@H' A `6-%@U  >:,$ D:HEXER.BA +,TAADTEM ;@ ,;@,2 +(/( HEX NUMB:}ER CONVERSIONS2(\(/($Enter 'D' for DEC to HEX conversion.X($Enter 'H' for HEX to DEC conversion.\(B:,";}@024HA<0D@0Z @d<(<(1ENTER A DECIMAL NUMBER FROM 0 THROUGH 9999999999.n<} (DEC:x# )E# A6-@  6-6-P:'@,6-&$@' @=}67<,.=:,' A 67<,.>:&@%@:A,,'6-&@' A@(HEX: 7<@ ,(>} A, A68(8(-ENTER A HEX NUMBER FROM 0 TROUGH FFFFFFFF.@ (HEX:J6-T-@?}B:,Y6.7<,20A^-7<,/9#6-$@%A:,- Apc2AAe3FAh%%6@}-$@%@:,&@:A,%@r |(DEC: ( A  D:HEXCONV.BAS( YOU MAY:-(n( 1.EA}NTER@%@:,&@:A,%@r |(DEC: ( A  D:HEXCONV.BAS( YOU MAY:-(n( 1.E0KKKADISKBMEMDSKINVDSKNDSKQUITTRASHINVTRASHLENGTSTARTRASKXYZZZOZORARAMSU@%C}@@     @@%D}@@@@@@@@@AARA@%E} B!A "AwS0@)6-@56-@A6-@SAB@ss;@ ,%F};A `,;@ ,;@,;@,;@,;@,;@,;@,;@,d Bi 6.n%G}6-B:,'@& " % B 0@X0@)-@6(>:@,%H}H-@@X( Πՠ(-@(( >:@ ,%-@!( %  3( %I}>:@!,/-@@3( A9=-@0@ ( DIR2-@0@=( NEW@-@%J}@"( TRASH4-@@@( QUIT% "-@!@%( 6-R:," A)T:,%K}"A0"@A PC#"@)"@)"@+6-&7 @C6-@C#"@)"@ %L})"@+6-%7!@"C6-@"?!@* @'6-%@3!@6?6-@6?!@* @%M}'6-&@3 @?6-@"*"A ? 11%-'(>:,>:,-6-36-96-?6%N}-+ -!(>:@,>:@,+ A T . "-@!@%(+6-.$^ ( 6--@!@%(TR%O}ASH($ J1+!@* @,)+!@* @,C-@0@G(J% "@AA !!!@* @"%P}A2 // @*!*!@* @A5 !!"@#)"@%A7 ^"@)"@'-@%Q}#--Z(( ^  % D1:MASTER.DR2 !!"@ )"@A8 K-%R}@ -2A@@1 ;2A6-K Al I-@0@(%6-@216-@296-%?6%S}-I A "@!A3  6-& 6- A  6-%!&6-& A ::6.7+&%T}@%,$@%<+&@%,$@&, < --@"-B:,8(>:@:7,,%A(,<  -@(%U}  0-@7<,0 ,67<,.7,0  6. qB7+&@%,$@%@ <+&@%,$@,0DR%V}RT-@%@g(̠Šq A6 "A8P D-@0@(,67B:,%,..DRR56.D:D67@%W},. < A60@ D:OPTION.DIR7(< % D:MASTER.DR2/-@%@/( Ҡ%X}F:A,Z-@6@,-@0@0(: A@L-@0@P(Z A@'2AP@%Y} '2$p-@0@/(>:@0,>:@,=-AA S-@%@f( p A%Z}td-@ -@#J(( N R+dAAyAV~$$(}%[} ŠנŠ3( (3(%Please do not use extenders or spacesC0@ (?(ENTER 8 LE%\}TTER FILENAME->C 4 %GB:,!@(3( FILENAME TOO LONG= A@G A7Z-B:,&7<%]},4.)7<,4 )(F( ILLEGAL FILENAMEP A@Z A7 d-B:,6-@:7,,0 @H)!@%^}3(P(USE ONLY CAPITAL LETTERSZ A@d A7 (( Š ,(( ARE YOU SURE)7<%_},0Y,%. 6.D:67,.(67B:,%,..DRR.6-V A7#@(+(G(ŠҠĠ%`}KS0YV%; A6(2( WRITING NEW FILE TO DISK8;%-@@(6- A . 6%a}.D:67@,..67B:,%,..DRR( A6%@3(%< A -FE-@@%>%b}(7+%,$@%<+%%,$@&,B E$-@ $I-@6?@02@@4 B-%c}AF I$0@1-@ @1(1-@ @1( C%d}opyright 1985 1-@ @1( ANALOG Computing "1-@ @1( By Jason Leigh ,1-@ %e}@1( Version 1.0 61-@ @ 1( 14th May 1985 @1-@ @1(%f}JT:,"AAp^B-@ @6&-@ B(hi-@ %-( %g} 1 C-@ @_( i A'?0@!+3AA%q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB7^MENU BASBASSEMBLEBASB!HEXADECIBASB 9HEXCONVEBASCBASSCOMPALERB8BMASTERDRDR1BAMASTERDRDR2B BIGBFFERBASBPAGEFLIPBASBSCRSCROLBASB DISPLAYLBASBDISPLAY2NIRB GRAPH1 BASBAGRAPH2 BASB1.GRAPH3 BASB)_GRAPH4 BASB.GRAPH5 BAS&80COLUMNBAS DEMO1 BAS DEMO2 BASDEMO3 BAS+80COL BAS)ADDRESS BAS<BANNER BAS"ZEASY80 BAS |COLUMN80SET?AR'B0@?( Ҡˠ٠B('))(! COPYRIGHT 1985 ANALOG COMPUTING%r}'(BY JASON LEIGH('( ŠԠ'(6-F:A,&@(6-$AV$'6-%@6-%F:," 6%s}"A BP.'VAA%#B9-A6A="CG V6-?:A6,8'3 #B-%t}Ag"/%AR%3 B' (}AVL'= #B-@!"-67,.>:,967,.>:,= Q'G-@%u}"!67,.>:,% 3-@7"C67,.>:,G T'G-@"!67,.>:,% 3-@7"C67,.>:,%v}G V'?6-@46-@ '6-@236-@296-?6-`'-@0@(e' Bj', 6.&%w}@D:*.*,6-t'8  67<%@,.7,.6-%@8 B~'$'F:A,"A6$'L-A%x}67<,. " B67@<@ ,.NO FILESL A N%%255,128,186,163,186,162,186,128*N255,1,89,85,213,85%y},89,14N%%128,136,144,191,144,136,128,255>N1,5,29,249,29,5,1,255HN127,63,36,45,45,45,45,45RN%%255,254,146,182,182,%z}182,182,182\N45,45,45,45,45,45,36,63aN%%182,182,182,182,182,182,146,254fN%%255,128,188,188,128,131,132,132pN255,1%{},1,1,1,193,33,33zN%%132,132,131,128,129,129,128,255N33,33,193,1,129,129,1,255N!!33,33,193,14,144,144,32,224N12%|}7,128,124,16,14,4,3,0N224,24,7,7,5,31,224,0N%%255,231,195,129,231,231,231,255N%%255,231,231,231,129,195,231,255N%}}%%192,192,192,192,192,192,192,192N1,2,4,8,16,32,64,128N 131,71,46,28,56,116,98,129N128,64,32,16,8,4,2,1R331%~}3,141,14,142,29,29,30,30,30,30,15,143,16,144R23,24,29,30,30,25,23R5,6,29,30,30,7,8&R9,10,29,30,30,11,120R13%}7,138,29,30,30,139,1400uKK104,216,173,254,6,133,203,173,255,6,133,204,169,224,133,206,169,0,133:u++205,162,0,161,205,129,%}203,230,203,230DuNN205,165,205,201,0,208,242,230,204,230,206,165,206,201,228,208,232,248,96}O --!(7<@,%}% O(7@, Ҡˠ٠ }=-@:(&______________________________________=$ D1:MASTER%}.DR1DUPUDSKI SECTORS1 FRDOS SYSDUP SYSSPEEDS@:(&______________________________________=$ D1:MASTER$5 rsk PAUSBEESCREEKEAFILEBDZKDLISLHXCDISKERLINKKKKKKK1DOT)} )}0@))}6-@56-@A6-@M6-@Y6-@e6-@q6-@AB@6-A6-A)}'6-A36-Af;@0,;@ ,;@0,;@0,;,r6-@2x6-6-@2.6.>:@ ,)}+"A.A  6 A0* D:OPTION.DIR16U (}-@%( ENTER FILE$1-)}@:(G.16@-RAB@U&1 #A-@"-A6%1 fAB@+ 6.')}6..6.60HAA`TAR`Af(}<%6-F:A`,%F:Aa,$AV4%F:%,%<%)}#!6-F:A`,!6-F:Aa,(4 -4(& master filer ____________________2>AR->($ Ԡ)}٠Š<I-@%(FILES IN MEMORY=/#B3"7(IAdA$A4I:, A$-@)}@4( ҠF0%@#-@0(K#-@#( FOLDER NAME->PT:,"@)}T:,"A * 6-R:,*@*@A9"@6-%#!@8/6-@89 A )}-"@6-& #6-- A  1& - (-(>:, 6-&6- A ! 6-!!* @)}A0!!!@* @%A`!!!@(* @7A  A   -(|Escape|  )}-(|Update|  -(|Insert|  -(|Delete|  -( 6-R:, T:,A2 #"@)}6-& #6- #"@6-%!#6-  -%"(  "(  "()}&  "(+ "@A0@0 A0 + +@ AEAPA@ @ 4 (} )} DELETE FILE&6-0#B4"$(( Disk name 4$  A"A@ 6.>67,.)}+ #B6-A`+Aa/ A@U"'7<,4>)7<,4/6-%767,.+ AEE#B%"+4AEP6-%@e AE0 6(( INS)}ERT DISK2( & PRESS RETURN6< AEp#D:*.*1-@e8< 4F:A,A6)}0(ҭF:A,4 16-B%#B"'6-&1 APw##(} INSERT NEW DISK FILE3I:, A)}-@/( Ҡ3 8((Name of new disk * A8"AP 6.>67,. 4)}  AP@#B'" 4#(Name already used'  AP0>(( INSERT DISK(:( PRESS )} TO START>< AP`#D:*.*1-@e8< AF:A,A6$A =( ҭ)}F:A,A ' #B"'6-B%$@eG APw)-BB'g@e-#1"74=6-G APw)} A`AaT (}-"( 10000 DATA%.-@9(G.5080?-QAB@T&A)}B@(}# AP`#D:*.* (}-(DATA5-@ (G.5150 -2AB)}@5&AB@(I-@d(}! AQu(.-=(%DATAI-@*(G.5180 AQp)}-( -(%-@((G.51802 -AB@&7' 6.'F:A,A6AP`8 AQe)}<%AB@!A% P (} p-@( |Escape |z-@( |Catalog|-@)}( |DiskDir|-@( |Search |-@(  6-R:,T:,Ab#"@6)}-& #6-#"@6-%!#6-#-@%"#( "( "()} "("@A`@ A`8+ +@ ApAuAeB @ d(})} SEARCH((Filename #B "7<,4>6.7<,4*6.7,54767,.)}v#B%7 At"7+6-%@e5 Ap0(  App  #)}B*  "4Ar47<,4>(>(  Ar06-F:A,"&6-%@e0 Ap0)} L$!(} DISK DIRECTORY$(V# Au0#D:*.*`2-@e( &*(. 2 j)}3F:A,A6(3(ҭF:A,t @-@)(|Escape|J-@)(|Print |T-@))}(| Quit |^-@)(h 6-R:,rT:,A|#"@6-& #6-#"@)}6-%!#6-"-@0%""( "( "("@A@ A)} # #@ AA4!(} QUIT>!0((Save changes (Y) 00YA@H!J(#()} PUT DISK WITH FILE F( IN DRIVE 1 & PRESS JR!"("( ŠW!! AP!B)}B'f\!" AP+"% D:MASTER.DR1f!(ҭF:A, " 46-$"M-B:,7<,4,(D(!)} DO NOT USE COMMAS IN NAMEJ6-M$" "=B:,!@ (4( NAME TOO LONG:6-=$" 6- $(#)}%%(} PRINT DISK CATALOGS2#1(-(!Print ntire or eparate catalogs1<#0E*0S F#4SAP)}#8(*(PREPARE PRINTER & PRESS RETURN.8 APU#K@P:<(ENTIRE DIRECTORY LISTINGA(K A)}Z#(ҭF:A, x# #B#  "4A#7<,4>(# ( A#"(()}Disk name to print"# 4 $ 6.>67,.$.(*(PREPARE PRINTER & PRESS RETURN.$& AP&)}@P:"$ 6-,$3 A#B%"37)7<,4A`h$ ( A$F:A,"Ap$ %T)}:,"A%$%22A!-@ % /22$H&+A0$&KAB@)}+A 30?A`KAa&&(&( Ġ&))(! PRESS TO RETURN TO M)}ENU&T:,A& @ &HAB@+%A1-@H(ҭF:A,&B('( )}ǠϠΠ1 A0B% D:MASTER.DR1 '$$112,112,112,66,11,6,2,2,65,0,6 'QQ0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,44,37)},33,51,37,0,55,33,41,52,0,0,0,0,0,0,0,0 ',,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36'QQ47,0,46,47,52,0,48,50,37,51,51,0,34,)}50,37,33,43,0,0,0,0,0,0,0,0,0,0,0,0,0,0'0 D:MASTER.DR2TAR`Af(,52,0,48,50,37,51,51,0,34,(c  2#9NAMEAA(A@s7SAVE"D:BIGBFFER.BAS" KEYBOARD BUFFER TEST B-};@0,( WAHT IS YOUR NAME?2-@A<6-H:,$AUF2@@@-}P Zd  YOUR NAME IN n0uKEYBOARD BUFFER1u(C)opyright march 19842uby COMPUTE magazine:uOO1-}04,173,8,2,141,96,6,173,9,2,141,97,6,169,0,141,14,212,120,169,52,141,8,2DuSS169,6,141,9,2,169,98,141,36,2,169,6,141,37,2,16-}9,192,141,14,212,169,0,133,204Nu\\133,205,88,96,173,9,210,201,159,240,36,152,72,173,252,2,201,255,240,19,164,204,192,100Xu-}]]240,9,230,204,200,173,9,210,153,143,6,104,168,104,64,165,204,197,205,208,231,104,168,76bu]]95,6,173,252,2,201,255,208,35-},165,204,197,205,240,23,230,205,164,204,192,120,176,15,164luUU205,192,120,176,9,185,143,6,141,252,2,76,98,228,169,0,133,204-},133,205,76,98,228vu6-u"F:A!,"@" BPu-@ACu"6-%uA6%u-} u,B ) CHECK DATA STATEMENTS,&u6-?:A6,u$D:BIGBFFER.BAS"6-%uA6%u,_'  ABAfA6;A ,;A ,--A6A6%@B#")- 1}2 +!-@A .67<,.2 (-@A $67<,.( ))A$(5,30)="THE BLACK PIRATS COM1}PANY"!9 +!6-?:A6?@ABCDEFGHIJKLE}MNOPQRSTUVWXYZ[\E}]^%%GRAPH IT BAR-PIE REV 0.1 7-5-80 <<" !!"E} ii0,1,2,3,4,5,6,7,8,10,12,14,15,16,17,18,20,40,59,60,62,70,80,82,84,87,128,155,255,256,3300,3400,E}3510 &&4910,559,560,710,752,764,3.14159-;,;,;,'K:- %KE:"A$0E}%A$69(K( GRAPH IT -  (COPYRIGHT (c) 1980 ATARI6  (( AR CHARTS,( IE GRAPHS6(XITE}K  (K(TYPE FIRST LETTER OF DESIREDOPTION THEN HIT RETURN.(OPTION:  4B&. $$ E}4P A$ 4E+ 6- -( (  6-6-$> 6-"6-& E}?   @ P:,!6-6- &F ! G 6-6-6O?!6-&+&@YP,'+&,$+&,,6-N:&,9O:&, E}'?6-P " ,&$$Q/ "/&'N:%,$ " ,/&$/$R;-&'N:%,$   ;/O:,&&E}$N:,&N:%,$S1  6-+%',$N:+%',$,*-&$. 1$T ",$U "/$V - $W0%E}F:%,%+&,$-%F:%,%+%,$0$ 6-@:,!&6-&!%* %6-%%$  %6-%AE}$ 6-%$,%'&N:%,$$%  % F:A,%F:A,$2  (( INVALID INPUT%6-) /F}2$/6-+&B:,,'0>6-%Ag`%-B:,)6.7<,- 7%%; >$+ 2-P:', (2+$F}, 6-%6-$$8,' "(6-%,  6-%$6- !*")66*"6$?  A5 6-6-#F}6-' -6-1 5 ; ?  6-  F:, $" 6-F:,-!%"( (- e ;,F}9A,;A,'(}1 A@a(GRAPH MAY CONTAIN FROM1 TO 32 COLUMNSe d(;(FROM 1 TO 3 FACTORS MAY F}BEGRAPHED TOGETHER>(](ENTER NUMBER OF FACTORS: d  )! A d6-@26-#6.COLUMN -F} AA5-;(}Z(INPUT VALUES FOR FACTOR d ABQ 6-  6-6-%6-&-6-%7 AD?%F}KA0Q/ ,///%// AE \F6.<F}X6-%%'+&,$\] ,%/AT)6-A5'+$,5-$Q6-$P:,%'%$+&P:,,%W6-]6-F} G -%06-8+&,'%+&,$%,>6-'+&,$G6-N:,* 6-")"6-4A!`>% ,F }/&!@"%6-&H ",/&R "6- A!`\5 ,&-&& !'&%-,5/&F }f 6-&p7  %6-P:,'-6-$++&P:,,',7 A#pzU 6-&6-P:L:,,&%6-'--7 A#`AF } A#E O A"U) AG A"@%4Y)4)  A!0 ((ū%6.=:%,0-F }B:,67<,.>:%@:7,,, % ((($#( EXIT (Y/N): #! )"F }(!$ &6.>:,( A"P6 6-6--(6-8+&,$%,.!66-%  6-%F}    !6-   6-$ N'"*+")& )&!p,*(:( DATA ERROR> A'D'N A . 6-F} $8 # 6-%$ 6-P:'#%','#$B !6-F:%,%F:%%,$!-L C6-+&,'$%% 6.7<,$ <%$%$%%&F}'&@ C$V C 6-6.=:,6-B:,#-56-@:7<,,&%; C6-%` R#6-%+@0&@ $,$$%+-GF}%$%&@:7$%%,,$K O R$j I:,!$$ A0t U AB% (}$(:-A A!>(F}B L(CONTR-U&~ < (}"-A"A#&(* 3(CONT9-<& F (}(A$ (A$ *(A$0F}4(A$@=(CONTC-F&  A (} (ABA;%,;,;,;,;,9, h7(THE PIE GRAPH WILLF} DISPLAY 1 TO 12 SLICESA A@G6-M6-^6. PIE SLICE h AA I (}INPUT VALUES FOR$6-. ABF}46-:6-@C(I6- !A0R 6-8, 'A0P 68,-"6- 6-% 68,-8,%F}6-&  6-% A0B , * ,67+&,$%<+&,$%,.ETC + +(}SUBTITLE 0 TO 20 CHARACTERS 4( SUF}BTITLE: $B:,"46. PIE GRAPH 6. #(-1479;<< f 6-%6-6-Aw)6-A3 ADA%AF}vG6-N6-6T6-^ ADf% FF:,&&6-&0 AE66-@ A6F6- c F}6-&6-6A $6-*6-06-66-<6-B6-H6-L S6-6]6-&&c6-S 9 6-%6-$  ! + F}A5 / 9 A1XT  A5 6-$' V C 0>:,6%6-6-%6-) 36-%%96-?6-C b ) 6-%F} A6%6.)  4 AG A8P*6. EXIT (Y/N): . 4 - )6.>:,6-# - A2F} 4Y)4  ! A8P6. ! A2  "6- A3P 6-(6-%! 6-&  "6F}-6 6-% %$ 6-& "P:',$A3%  "6-6-6- * 6- 4 % "6F}-6-6-% A3@9 & 6-6-6-66-& A3@H  6-6- R 6- \ 6-&$''$f -$ +F}&'$,$'6-&'$%$'-6-z % $ $6-%$'AW%6-   6-   " A4 $ )6-@1cF }$E:,%&&6-6$G:,%)$ I6-+&,$%6-%# A7*6-606-: A5uI6-8,'$$ "  ''6.<.01F!}" A5P !6-P:$$%',''!6.=:, E 6-B:,-$67<,.7<,( < ''*+")",E6.>:, ?67%B2wV6.J6}%E:%67<,.>:'+%,, C B'` C('} GRAPH IT - COPYRIGHT (c) 1980 ATARI ,,($ TWO DIJ7}MENSIONAL PLOTTING PROGRAM -  APO)  ) F:A,%F:A,$+%,P*2&-%J8} '2*$d 6- %6-6-$e "6-& %f  & %g  6-h !6-6- J9}%i *66-j  %k 6-6-6l46-&+&%,'+&,$+&,(6-N:&,. 46-m " ,&J:}$$n8/&'N:%,$ +,%'&N:%,$5/&$8$s ",$t / $.%F:%,%+%,$+F:,J;}%A($.$&+%A$#%A$&$/9 (}9( START LIMIT MUST BE LESSTHAN END LIMIT %$J<}'((INVALID INPU $(T'$<  (}6( FROM 1 TO 3SCAN BE PLOTTED<A  ("( NUMBER OFJ=}S: )3 )!7 A AP7 6.Y6--&!(}7( FORM IS Y=F(X) Ap6-%  AJ>}   &(( STARTING X VALUE: &8(( ENDING X VALUE: $*. 8 AP%16-+&,'6J?}-6-!6-+ Ab16-6-'+&, 6-%$ Ae26-6'%%" %)!A(6-2 APe3 J@}67<,.>:,-/&AR%3 1 6-6-6-6-% Ad+6-16-1 6-%$@@JA}#1 APu %*",/$% A`P- 41 ( UNDEFINED VALUE*(-$Q(X= JB}(Y%S(= Z?6-$+&,% 6-!6-/6-$+%,%3 96-?6-dN AR06(SLP=+&,'+&,JC} =(G6-$%K N$n#(UNDEFINED  (#$ 6-6-%+&,$ !6-  JD}6-  6- !%6-%67&<&,.>:%%,= -%% %%%%--=%%@:7,,JE}  6-$Z"(} HANGE LIMITSESTART(M( O NOT EXITENTER LETTER: SZ" (}JF}4D$,& 4R' B'` & AP6 0C  AT@ B'` ' AP% 41$  JG}6- !6- p) 6-6-)6.z F:, ATT:,"*" AR! BRJH}"*"! A`@wT:,"(} 6-%$ 6-A` "6-&$ A`JI} 6-%5 " !6-++&,$%&,'+ AS5 A`) 6-6-$%6-%! )6-& !&6-JJ}  AS A`82 (}+( AUTO SCALE THE PLOT (Y/N): 2B4YAbPL 0N  AbV JK}X%(( MINIMUM Y VALUE: %[9(( MAXIMUM Y VALUE: %+/ 9 Ab0e$j (  SCALINGJL}6-t Ay-&6-~+ 6-$% 6-%"%6-+6-  6- !6-"Ac`JM} 6-%!6- Abp 6-% ! "6-&'&!6-%'%$3 ( PLOTTING!-&'JN}%-6-36- ? 6-$% B! Ayp'6-1 AX?"Ad@ 6-%!6- 406- ! 4JO}1!( UNDEFINED VALUE# Ad(1 6-6-' AX.(}1$d?+%%AF+%AJP}$3%?AFe9@b%%96-F:A`,%F:Aa,$+%,fF:B2h,! Aeg' %&JQ}-%#%%&' hO%&&-&'%%%&+ 16-76-E%AFO Aei) %%AFJR}!6-&)6-&j  &$n !%$x  %$P:%,"&%&$ %&6-% %JS}%$XT+(  TYPE IN THE THEN HIT RETURNT( TO ENTER PREVIOUS HIT RETURN_( -(= ((JT}%b7 6-(( -)F:,"- 7 Apd' 6-e( )AU6-%( Apg' JU} Aw6-" ' Aq - (B (-( '(/-8(CONT< B-JV}AB%&*AB%(} '@b*$ (}''(  EDIT THE THEN HIT RETURNF JW}-%--$(( 0(6 F(%@b ApOF:A,"%<(} TJX}HE CONTAINS AN ERRORB6-E'O AqMF:A,"&)(} LINE TOO LONG7AB%C@bM Ap(JY}$ Ay' Ac0"6-%+&,$$TZ "(} PLOTTING SPEEDS2( LOW?(EDIUMJ(ASTZ(JZ} ERY FASTU (ENTER PLOT SPEED: V 4S6-$W 4M6-$X 4F6-$Y 4VJ[}6-$Z  (  A zb! 6-R:,6-"6-!$b5 6-"%* )"*!6+6-&N:&,5 BSJ\}b 6-"&6-6b "%6-b$b O:,!6-N:,$b$:u B 6.0 %$Du 6-Iu$NuJ]}6-%@Su$Xu6-&@]u$} 6-6.16-$$ %!6. FUNCTION$$ D:GRAPH3.BASJ^}-&  "]u$} 6-6.16-$$ %!6. FUNCTION$$ D:GRAPH3.BASHZ0ZZZZZZZZZZ1Z1Z4Z7Z8Z8Z10Z15Z25Z70Z75ZSPZ55Z30Z30Z30AFADFUTMTMSPNUJRAYMN`}YMXMXMOYXOLQYOLTXXJRAQYJJJXMABNa} Nb} !"#$%&'Nc}()*+,-./01234567Nd}89:;<=>..GRAPH IT 2D:X=F(T),Y=G(T) REV0.2 9-11-80;;"Ne}aa0.5,0,1,2,3,4,5,6,7,8,10,15,40,79,80,88,100,159,255,705,752,764,53249,559,30010,3Nf}0020,30050G;,;%,;%,*6-P:C:,'+%,,=$C:,&$+%,G$%V 6-+%,$+F:%,&,%Ad2BByNg}'+%,>B2wV6.%E:%67<,.>:'+%,, C B'` C('} GRAPH IT - COPNh}YRIGHT (c) 1980 ATARI $$(POLAR PLOTTING PROGRAM ( X=F(T),Y=G(T) - (  )c 6-Ni}6.X(}-( FORM IS X=F(T)7 Ap?6-%G6.YM(}c( FORM IS Y=G(T)* Ap6-+%%(} LIMITNj}S WILL BE IN RADIANS0*  (#( STARTING T VALUE: *14(( ENDING T VALUE: $*. 4 %2!((Nk} T INCREMENT: !3' !&(( TOO LARGE! ' %4   %59 6-6- Ab6-%6--6-&Nl}96-+&,'6?  6-6-AY'/6-+&+&,$,'56-? @W8% 6-'6-+$&+&,$,'%6-9? BNm}6- Ad#6-)6-/6-56-? A`O)  ) F:A,%F:A,$+%,P*2&-% '2Nn}*$&+%A$#%A$&$ %$'((INVALID INPU $(T'$P2 41 ( UNDEFINENo}D VALUE(( 2 ARQ!( X= !( Y= S( T= ($ 6-6-%+&,$& !6-Np}  6-  6- !%6-%67&<&,.>:%%,= -%% %%%%--=%Nq}%@:7,,  6-$Z"(} HANGE LIMITSESTART(M( O NOT EXITENTER LETTER: SZ" Nr}(}4D$, 4R' B'`  6 0C  AT@" B'` '" AP%J % Ns}41$  6- !6-  6-!A6-A "/$ , $p5 6-6-Nt}!@w'56.z F:, ATT:,"*" AR! BR"*"! A`Nu}@wT:,"(} 6-%$ 6-A`6-P:',$3 " 6-+$&$%,') ASNv}3 A`) 6-6-$%6-%! )6-& !&6-  AS A`82 (}+( AUTO SCALE THE PNw}LOT (Y/N): 2B4YAbPL 0N  AbV%(( MINIMUM Y VALUE: %[5(( MAXIMUM Y VALNx}UE: %+5 Ab0`%(( MINIMUM X VALUE: %b5(( MAXIMUM X VALUE: %+5 AbBe$Ny}j (  SCALINGt Ay-&6-~= 6-$% 6-%"%6-+6-1"76-=6-  6Nz}- !6-  6- !6-"Ac` 6-%!6- Abp 6-% ! "N{}6-&'&!6-%'%! "6-&'&!6-%'%$?@w#( PLOTTING--&3%96-?6-N|} 5 B Ayp6-' AX5"Ad@ 6-%!6- 406- ! 41!( UNDEFINED VALUEN}}# Ad( (}$d   $n ! $x  %&$ "&%&&$ !%6-%N~}%%&$XT+(  TYPE IN THE THEN HIT RETURNT( TO ENTER PREVIOUS HIT RETURN_( -(= (N}(%b7 6-(( -)F:,"- 7 Apd' 6-e( )AU6-%( ApN}g' Aw6-" ' Aq - (B (-( '(/-8(CONTN}< B-AB%&*AB%(} '@b*$ (}''(  EDIT THE THEN HIT RETUN}RNF -%--$(( 0(6 F(%@b ApOF:A,"%RZZZZZZZZZ1Z1Z4Z20Z71Z25Z25SPZ55Z76Z30ABFADSPXMTMXMTMYMYMYYOLYJJRARAJQQR}RAITYYTXJYC R} R} !"#$%&'()*+R},-./012345 GRAPH IT 3D REV0.1 8-15-80++"R}BB0,1,2,3,4,6,7,8,10,15,40,200,710,255,256,53250,559,764,30070R';,;A,;@ R},;%,56-P:C:,',F$%C:,&$R$%%` 6-$+F:A,&,%Ad.BBy':B2wHER}:`6.[  B ?('} GRAPH IT - COPYRIGHT (c) 1980 ATARI[(3D PLOTTING PROGRAM1AR}R(- 167<,.>:P:',, A6. FUNCTION0(} TYPE IS Z=F(X,Y): ApA(}2W Ax'(}R}PLOTTING SPEEDS4( LOW@( ASTW(ENTER SPEED: 3 4S6- $4 4F6- $5,R}AR( "AR, @P<3 6.X 6-6-#6.Y' -6-36-FF'(} AUTO SCALE THE PLOT (Y/NR}): .64Y<6-F @sG 0N  @pH 6-6.Z IF'(} REMOVE HIDDEN LINES (Y/N): .R}64Y<6-F @vJ 4N6- @vK  @sLK(,( FASTER NON DISPLAY PLOT (Y/N): 3;R}4NA6-K @NP 4Y6-4( SCREEN WILL BLANK FOR PLOB-AF P @O  @vP%AR}R%(} INITIALIZINGQA B-@P% B) /6-9 BA6-&RP( PLOTTING TIME .6-R}'$'$@<6-&$'$B"P6-$@0Sq(P:,% MINUTES)6-+&,'A;6-+&,'@9I-A]6R}7<,.>:Au,a g"q @T! "@wA(!U0AR*( SCALING IN PROGRESS06-VA R}Ay--# ' /6-%5";6-A6-W  6-X !6-Y   Z! "6-&'&!6-R}%'%]6-$'+&,^ "@wA(_X+ /6-F:A`,%F:Aa,$7-T%A%F:%R}Ar%,X aL -(%A%F:%Ag%,, 4-D%Ag%H Lb%AR"!@b%R} c " dD A-66-$6-46-$&@D6-$%@g! 6-$%-!6-$%h 6-R}$i6-+&,$6-&j!!@:7%,,6-! Ak 6-&(/ Al# ,6-6-# AR}m,&+%,'/6-n67<,.>:,o   Ap"(/%+@:7,,%,'"6-q!67<,.7%<%,R}! AD A-66-$6-46-$&@D6-$%@! 6-$%-!6-$% 6-$/R}6-+&,$6-&#!Av/6-Av 6-&(/ A ,6-   jAU@R}"(}.@b:@wF6-@N6-$\&Aj6. 6.0F:,  HT:,"*R}"  B&407(X=Z=@(Y=H(& 41(UNDEFINED VALUE&(! BR"*"! AR} (}@w% 6-%$6-%!%6-%&  6- !6-  6-E  BR}6-+&,$/6-&$%@=6-$&%%E6-'!Au6-Au  6-  6-!A`R}6-A`; -%% #%%+-;%%@:7,,-  6-#67&<&,.>:%%,- A 6-R}$%6-$%$( PLOT IN PROGRESS$ A6-6-  6- A F:A,"AAAR}#( UNDEFINED VALUE# A A6- A F:A,"AAA#( UNDEFINED VR}ALUE# A/*2&-$ '2*$? (}?( STARTING LIMIT MUST BELESS THAN ENDING LIMIT)R}("( MINIMUM  VALUE: ))("( MAXIMUM  VALUE: )   $`"(} HANGE LIMITSR}ESTART.ARS( O NOT EXITENTER LETTER: Y`AR(} 4D$" 4R'R} B "  0C    ' B  @PX\,(  TYPE IN THE THEN HIT RETURNV( TO ENTER}R PREVIOUS HIT RETURN\_ -(Z=b? 6-(AR((-%1F:,"5 ? Apd'AR}R6-e( )AU6-%( Apg' Aw6-" ' Aq) -(-%(R}) ( ArQ  (}-@ #--(104 7 Ar=-G(204 Q Ar@b$R} (}AY''(  EDIT THE THEN HIT RETURN0 -&--$(( 0(@bR} Ap 8 (-(CONT! '-5AB%8&*AB@$$CF:A,"%0(R}} FUNCTION ERROR66-9'C AqPF:A,"&)(} LINE TOO LONG,':AB%F@bP Ap($xR}/ AxAR# AxP/AR F:A,%F:A,$(( INVALID INPUT $ Ay' @R}*$+A$!%A$$$|.746-+F:@,$$%F:@,$%F:$,,'@`7$zb! 6-R:,6-"6-R}!$b9 6-""@* )"*!6/6-&N:&,9 BSb 6-"@6-6b "%6-b$b O:,!R}6-N:,$b$:u B vu 6-${u$} 6-6.1$ D:GRAPH5.BAS-"6-!-b$b O:,!Pg@hi CHARCHPROGNUXYTEXTWWMWV} d&&;A,;@,;A,n +@V}6-AwxG-@@G(@$PLEASE WAIT WHILE DATA IS READ IN! #A0!-@A8"6V}-&@'-@ @ 8(@ 67<,.>:, i #A !-@A%"36-&@E-V}@ @ W(@ e67<,.>:,i  A w A +@%@90@@S0@V}@m0@@ @w A"6-?:C:,BB(2000 PROG$(1,80)=>:@4,7@<@,>:@4,HDD(2010 PROV}G$(81,160)=>:@4,7@<A`,>:@4,REE(2020 PROG$(161,240)=>:@4,7Aa<A@,>:@4,\EV}E(2030 PROG$(241,294)=>:@4,7AA<A,>:@4,f (CONTp-@zAB@&V}AB@1 +Af@1-@@BB(2050 CHAR$(1,80)=>:@4,7@<@,>:V}@4,DD(2060 CHAR$(81,160)=>:@4,7@<A`,>:@4,EE(2070 CHAR$(161,240)=>:@4,7AaV}<A@,>:@4,EE(2080 CHAR$(241,320)=>:@4,7AA<A ,>:@4,EE(2090 CHAR$(321,383)=>:@4V},7A!<A,>:@4, (CONT-@AB@&AB@+ +V}-@@+6-A)-@@%(%@$)  (CONT-@AB@&V}AB@L-AAAV +-@@`)-@@ %(%@$) jV} (CONT-@AB@&AB@ AB@4F#67@u<@u,V}.>:@4,C67@<@,.>:@4,F$D:80COLUMN.BAS9A M-V}A,C67@<@,.>:@4,F$D:80COLUMN.BAS9A M-T2200 REM ΠϠŠ2210 GOSUB 2420:GOSUB 22702220 RESTORE 2340:FOR I=1 TO 82230 READ X,Y,CH$:GOSUB 2002240 Z}NEXT I2250 GOTO 22502260 REM 2270 RESTORE 2300:COLOR 1:PLOT 8,61:FOR I=1 TO 192280 READ X1,Y1:DRAWTO X1,Y1:NEXT I2290 REZ}TURN 2300 DATA 311,61,311,139,8,139,8,612310 DATA 73,61,73,139,99,139,99,61,127,61,127,139,171,139,171,61,221,61,221,139,25Z}7,139,257,612320 DATA 311,61,311,83,8,832330 GOTO 23302340 DATA 26,63,Total Memory Resolution Text Max.No.@23Z}50 DATA 6,74,Model Price Ram for Basic (Max) (Max) of Colours@2360 DATA 3,85,Commodore C128 `269 12Z}8k 112k 320x200 80x25 16@2370 DATA 3,96,Amstrad CPC664 `339 64k 42k 640X200 80X25 Z} 16@2380 DATA 3,107,Enterprise 128 `250 128k 71k 672x512 84x24 256@2390 DATA 3,118,Memotech MTX512 `2Z}75 80k 64k 256x192 40x24 256@2400 DATA 3,129,Atari 130XE `170 128k 100k 320x192 80xZ}24' 256@2410 DATA 3,150,' Using Atari User Magazine's 80 column program.@2420 REM ԠΠҮ2430 DIM TEXT$(40)2440 Z}X=8:Y=40:TEXT$="Micro Comparison table"2450 W1=PEEK(88)+PEEK(89)*256:W2=W1+Y*40+X2460 FOR ME=1 TO LEN(TEXT$):X=ASC(TEXT$(MEZ},ME)):IF X>127 THEN X=X-1282470 IF X>31 AND X<96 THEN X=X-32:GOTO 24902480 IF X<32 THEN X=X+642490 TEXT$(ME,ME)=CHR$(X):NEZ}XT ME2500 FOR Z=1 TO LEN(TEXT$):X=ASC(TEXT$(Z,Z))2501 W3=57344+X*8:FOR ME=0 TO 7:POKE W2+ME*40,PEEK(W3+ME):NEXT ME:W2=W2+1:Z}NEXT Z2510 RETURN O LEN(TEXT$):X=ASC(TEXT$(Z,Z))2501 W3=57344+X*8:FOR ME=0 TO 7:POKE W2+ME*40,PEEK(W3+ME):NEXT ME:W2=W2+1:X2200 REM ΠϠǠ2210 DIM T$(1782)2220 X=1:Y=82230 T$(1,81)="Outside Blood Bank@"2240 T$(82,162)="You ar^}e in the middle of the block on a street that runs north-south.@"2250 T$(163,243)="Immediately to the east is the entrance t^}o a massive building. Next to the@"2260 T$(244,324)="entrance is a sign and a doorbell.@"2270 T$(325,405)=">READ THE SIGN@"^}2280 T$(406,486)="'OUTSKIRTS OF LONDON BLOOD BANK:We pay `30 for a pint of blood. Painless, takes@"2290 T$(487,567)="only a^}n hour. Ring doorbell for admittance.'@"2300 T$(568,648)=">EAST@"2310 T$(649,729)="The Blood Bank door is closed.@"2320 T$^}(730,810)=">OPEN IT@"2330 T$(811,891)="It's locked.@"2340 T$(892,972)="RING THE DOORBELL@"2350 T$(973,1053)="You already d^}id that, didn't you?@"2360 T$(1054,1134)="NO@"2370 T$(1135,1215)="I think you're wrong. I'm a computer, so I have a really ^}terrific memory, and@"2380 T$(1216,1296)="I'm almost positive you already rang the doorbell. Couldn't you be mistaken?@"239^}0 T$(1297,1377)="NO@"2400 T$(1378,1458)="Hmmm...well, I just looked back, and I guess you didn't ring the doorbell after@"2^}410 T$(1459,1539)="all. Do you still want to ring the doorbell?@"2420 T$(1540,1620)="YES@"2430 T$(1621,1701)="The bell ring^}s. A minute later, a stooped man opens the door and beckons you to@"2440 T$(1702,1782)="enter.@"2450 T$(1782,1782)="@"2460^} FOR I=1 TO 1782 STEP 812470 CH$=T$(I,I+80):GOSUB 200:Y=Y+82480 NEXT I2490 GOTO 24902500 REM 2510 REM 82,1782)="@"2460\l2200 REM ΠϠҠԠ2210 COLOR 12220 RESTORE 24202230 READ X,Y,CH$:IF X=999 THEN 22602240 GOSUB 2002250b} GOTO 22302260 NUM=242270 PLOT 24,24:DRAWTO 24,170:DRAWTO 315,1702280 X=1:FOR I=1 TO 142290 PLOT 24,170-I*10:DRAWTO 19,17b}0-I*10:Y=167-I*10:CH$=STR$(I*10):CH$(LEN(CH$)+1)="@":GOSUB 2002300 NEXT I2310 RESTORE 2410:X=2:Y=178:FOR I=1 TO 12:X=X+6:REb}AD CH$:GOSUB 200:NEXT I2320 X=2:RESTORE 24002330 READ SALES2340 IF SALES=999 THEN 23902350 PLOT NUM,170:DRAWTO NUM,170-SAb}LES:DRAWTO NUM+24,170-SALES:DRAWTO NUM+24,1702360 X=X+6:Y=160-SALES:CH$=STR$(SALES):CH$(LEN(CH$)+1)="@":GOSUB 2002370 NUM=Nb}UM+242380 GOTO 23302390 GOTO 23902400 DATA 110,50,40,36,43,49,39,50,30,90,120,140,9992410 DATA Jan@,Feb@,Mar@,Apr@,May@,Jb}un@,Jul@,Aug@,Sep@,Oct@,Nov@,Dec@2420 DATA 1,6,Sales in@2430 DATA 2,14,1000's@2440 DATA 25,10,SALES OF ATARI COMPUTERS 198b}6@2450 DATA 31,18,(600/800/XL/XE/ST)@2460 DATA 999,999,X2470 REM 2480 REM 2490 REM 2500 REM 2510 REM RI COMPUTERS 198`mPyzCHARCHPROGNUXYTEXTWWMWf}   +@-@@ (@g}80 columns text*(@*(@ program(-@A - +2M(J(? g} INSTRUCTIONS M(<@@(8 The main program must be load with Ġ and Π.Ajj(g}b When the program is running the more or another Ϡ programs we can to add with Ҡú.FC(C(8 It is possibblg}e to change the text with this command I--(% ԤKJJ(B The text in the line 82-162 wig}ll be what we write between .P**(" Add this in line Ӯ.Z3-@@3(press Ԡ to beging}..._ F:B2y,@@d&&;A,;@,;A,n +@6-AwxG-@@G(@g}$PLEASE WAIT WHILE DATA IS READ IN! #A0!-@A8"6-&@'-@ @ 8(@g} 67<,.>:, i #A !-@A%"36-&@E-@ @ W(@ e67g}<,.>:,i  A w A +@%@90@@S0@@m0@@ g }@w A"6-?:C:,BB(2000 PROG$(1,80)=>:@4,7@<@,>:@4,HDD(2010 PROG$(81,160)=>:@4,7@<A`g},>:@4,REE(2020 PROG$(161,240)=>:@4,7Aa<A@,>:@4,\EE(2030 PROG$(241,294)=>:@4,7g }AA<A,>:@4,f (CONTp-@zAB@&AB@1 +Afg!}@1-@@BB(2050 CHAR$(1,80)=>:@4,7@<@,>:@4,DD(2060 CHAR$(81,160)=>:g"}@4,7@<A`,>:@4,EE(2070 CHAR$(161,240)=>:@4,7Aa<A@,>:@4,EE(2080 CHAR$g#}(241,320)=>:@4,7AA<A ,>:@4,EE(2090 CHAR$(321,383)=>:@4,7A!<A,>:@4, g$}(CONT-@AB@&AB@+ +-@@+6-A)-g%}@@%(%@$)  (CONT-@AB@&AB@L-AAg&}AV +-@@`)-@@ %(%@$) j (CONT-@ABg'}@&AB@ AB@4F#67@u<@u,.>:@4,C67@<@,.>:@4g(},F$ D:80COL.BASAL@AL@s you to@enter.@`6(66)66E6F -3 A4<@,.>:@4dl2200 REM 󠤠2210 DIM T$(1782)2220 X=1:Y=82230 T$(1,81)=" Addresses and Telephone nuk*}mbers@"2240 T$(82,162)=" -------------------------------@"2250 T$(163,243)="Ariz Ltd. Bar Yohai k+} str. 4, Tel Aviv 61052 tel. 03-831181-4@"2260 T$(244,324)="Amira Albert Rutenberg str. 5, Rishon Letk,}zion tel. 03-942857@"2270 T$(325,405)="Alt Orna Ros Pina str. 15, Holon tel. 03-805189@"228k-}0 T$(406,486)="Adler Heinz Modiin str. 167, Ramat Gan tel. 03-744491@"2290 T$(487,567)="Aser Mifal Mak.}t. Hayarkon str. 37, Bnei Baraq tel. 03-785040@"2300 T$(568,648)="Bank Hapoalim Hahistadrut str. 108k/}, Holon (12/759) tel. 03-5562467@"2310 T$(649,729)="Bank Leumi Hankin str. 95, Holon (43/659) tel. 0k0}3-806085@"2320 T$(730,810)="Berke Meir & Ora tel. 03-805581@"2330 T$(811,891)=k1}"Ben Dayan Eli Malkei Yisrael str. 17/19 Kiryat Gat tel.051-886276@"2340 T$(892,972)="G.S.-Garage Citroen Petah k2}Tiqva str. 62 Tel Aviv tel. 03-374836@"2350 T$(973,1053)="Grinz Yigal Lohamei Hagetaot 10 Petah Tiqvk3}a tel. 03-9223997@"2355 T$(1054,1134)="Ginzburg David Hertzel str. 106 Rishon Letzion tel. 03-9650578@"k4}2360 T$(1135,1215)="Ginzburg Smuel Yeriho str. 29 Holon tel. 03-805080@"2365 T$(1216,1296)="Huberk5}man Eti Kiryat Nordau str. 605/10 Natanya tel.053-51441@"2370 T$(1297,1377)="Herman Katalin Hahistadrut k6}str. 63 Holon (Mishan) tel. 03-882730@"2375 T$(1378,1458)="Hadar Insurance Ben Yehuda str. 1-3 Tel Aviv 61019k7} tel. 03-642642@"2380 T$(1459,1539)="Har Tzvi & Sosana tel. 03-805885@"2385 k8}T$(1540,1620)="Wosk Moshe K'doshei Kahir 8/13 Holon tel. 03-888810@"2390 T$(1621,1701)="Zarahya Estk9}er K'doshei Belzen 12 Holon (5566451) tel. 03-807742@"2395 T$(1702,1782)="Zeitel Tova k:} tel. 03-843888@"2450 T$(1782,1782)="@"2460 FOR I=1 TO 1782 STEP 812470 CH$=T$(I,I+80):GOSUB 200:Yk;}=Y+82480 NEXT I2490 GOTO 24902500 REM 2510 REM 82,1782)="@"2460 FOR I=1 TO 1782 STEP 812470 CH$=T$(I,I+80):GOSUB 200:Yh4]^N%WIDTCHOICCHCHIEGHMSGCAPBPADXFCLDARFLADARKHEIGHXo=}@ o>}o?}BANNER GENERATOR by  J. DAIGLE  6/25/81 o@} ]];@,;@,;@,9@d,;@,;@,;@,;oA}@, ))(!} ҠҠ A .-@ @".(Ԡ: @oB}"F:A,((:A6-@@6(ENTER MESSAGE FOR THE BANNER"B:, @oC}(" @: @"F:A,((:AQ-@@/(NORMAL(N) OR DARK(D)3oD}A0D*0NG(Q @: @!"F:A,((:A\-@@2(CHARACTERoE} HEIGHT (1-10)6L @)!@R(\ @! 6-P:,: @'"F:A,((:AoF}\-@@ 2(CHARACTER WIDTH (1-10)6L @)!@R(\ @'$ 6-P:,%"-@oG}67<,. " &: @8"F:A,((:A(0-@@0(BANNER CHARACTER FILL:2oH}(1- ONE CHARACTER<$$( 2- MESSAGE ( CHAR. MAX)F(3- LETTER CHARACTERP(U 6-P:,ZAoI}APAp_ ( @@c: @"F:A,((:Ad.-@@*(ENoJ}TER CHARACTER.n"B:, @(" Ax-@67<,.  Ap,-@@((oK} ENTER MESSAGE,- B:, -67B:,%@<,. ########## B:,!6.7@<, A AoL}-@B:,1"@-@-67<,.7<,1 6-@:7,,"@"@2%-@$@23>:@oM},6 @ A ,6-F:AV,$AV1)!A'6-&A()6-@6' @26-%@d' A 8oN}'!@1* @'6-&@2@*-@@d&68,-* J6-@T6-$@^-oO}@h6-F:%%,r A|6-&@ "@ A A-@@WoP}@ 6.6--@28%, @(67B:,%@,.2 AP#67B:,%@,.oQ}#6-@ &"3>:@,& A-@3 4D3   %oR}6-A(-@V@' @A@ 6-&68%,-@6-'@ oS}$L-@@dV+8,"@!68,-+ A0`68,-@j t6-~$8 (}-oT}@@8(ҠӠԠAR@1-@@1(PRESS TO CONTINUE F:BoU}2y,@A AR Ap (}6.NORMAL( 4D6.DARK26-@@ 6oV}( PRINT, X MATRIX7( CHARACTER: <(( TEXT: F$x-@@ ({@@oW}}-@@AR@ -@@6@-@V@%8%,"oX}( % AP ( ( @@AR$ D:BANNER.BASoY}% AP ( ( @@AR$ D:BANNER.BASl EFCWT80X8Y8E80IXPOYPOCHBAYXOOCHBCHBxs[} @ Es\}ASY-80BY JD CASTEN (c) 1987, ANTIC PUBLISHING())80-COL. ROUTINES ARE IN 20000-20099Z Bd A@ns]}G @)-@@x@5,AG/@AAYo[/@AAY!/A5,@%AG/s^}@AAY[/@x%AxG ,A+/@xA=/@xAG#Ap " Bs_} A0k6-@6-@/-A'86.>:,B BS6.>:%A(,a6-%@@k B76s`}-&@9"@6)6-@76-%@ N6.D皚뀀sa}򀀴Z6-@f6-@F:@,%@B%6-?:C:,-@@"H BL ],'/A9/Asc}AK/A]/ACCEPT TEXT IN 80 COL.4;@ ,6-@(6-@D46-@sd}@6. *6-@%66-@@ B.@.@@K:4'6-?:C:se},:,36-?:C:,=-=-=-=-=-=-=-=-=so}-=-=- ,10,3YYFont editors (i.e INSTEDIT etc.) can edit this font from the file:COLUMN80.SET.,1,5XXUse lines 2000sp}0 - 20099 of this program to create your own 80 column programs.,1,6==Here is the entire set in both normal and inverse:,sq}15,8,1,17,3,19  ,59,14&  ,59,23Nsr}80-COL. DRIVER: NINIT. 80-COL. DRIVER%N;Ap,;A ,*NM6-@#B--@1"M-ss}@@@+N[96-+@:7,,&@e,$@&%@:7%@,,&@eE67,.>:,S6-%@W [ QNLOAD st}COLUMN80.SETRN6-BVVN:@:@@D:COLUMN80.SET\N6-P:'AV,aNA fNsu}6-&$AVpN!A !A uN'A @'A@zN6-?:C:h@LV,,NC+@%@sv}'AAB9A C AN"6-?:C:,